PC Pro 1997 July/PC Pro July 1997.iso/essentia.ls/INTERNET/32bit/Webpro/DATA.Z/WebEdit.exe/0/RCDATA/TFRMTABLEBUILDER/TFRMTABLEBUILDER.txt

Text File | 1996-08-21 | 13.3 KB | 495 lines

object frmTableBuilder: TfrmTableBuilder
  Left = 394
  Top = 418
  HelpContext = 90
  ActiveControl = btnGenerateTable
  BorderStyle = bsDialog
  Caption = 'Table Builder'
  ClientHeight = 447
  ClientWidth = 426
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  Position = poScreenCenter
  ShowHint = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 4
    Top = 216
    Width = 417
    Height = 187
  end
  object lblTableWidth: TLabel
    Left = 16
    Top = 228
    Width = 47
    Height = 13
    Caption = 'Table Wi&dth'
    FocusControl = cmbTableWidth
  end
  object lblAlign: TLabel
    Left = 168
    Top = 228
    Width = 81
    Height = 13
    Alignment = taRightJustify
    Caption = 'Table &Align'
    FocusControl = cmbAlign
  end
  object lblBorder: TLabel
    Left = 297
    Top = 282
    Width = 64
    Height = 15
    Caption = 'Border &Width'
  end
  object lblCaption: TLabel
    Left = 16
    Top = 256
    Width = 81
    Height = 17
    Caption = '&Caption'
    FocusControl = txtCaption
  end
  object lblCaptionAlign: TLabel
    Left = 16
    Top = 283
    Width = 89
    Height = 14
    Caption = 'Caption A&lignment'
    FocusControl = cmbCaptionAlign
  end
  object lblFieldSeperator1: TLabel
    Left = 120
    Top = 370
    Width = 113
    Height = 15
    Alignment = taCenter
    Caption = 'Import / Export'
  end
  object lblFieldSeperator2: TLabel
    Left = 120
    Top = 382
    Width = 113
    Height = 19
    Alignment = taCenter
    Caption = 'Field &Separator'
    FocusControl = cbxSeperator
  end
  object lblCellColor: TLabel
    Left = 16
    Top = 338
    Width = 44
    Height = 13
    Caption = 'C&ell Color'
    FocusControl = txtColor
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object shpBGColor: TShape
    Left = 243
    Top = 334
    Width = 25
    Height = 21
  end
  object Bevel2: TBevel
    Left = 6
    Top = 362
    Width = 413
    Height = 9
    Shape = bsTopLine
    Style = bsRaised
  end
  object lblCellPadding: TLabel
    Left = 16
    Top = 310
    Width = 57
    Height = 19
    Caption = 'Cell&Padding'
    FocusControl = txtCellPadding
  end
  object lblCellSpacing: TLabel
    Left = 231
    Top = 308
    Width = 58
    Height = 21
    Caption = 'Cell&Spacing'
    FocusControl = txtCellSpacing
  end
  object btnGenerateTable: TBitBtn
    Left = 153
    Top = 416
    Width = 100
    Height = 25
    Caption = '&Generate Table'
    Default = True
    ModalResult = 1
    TabOrder = 13
    OnClick = btnGenerateTableClick
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object btnClose: TBitBtn
    Left = 260
    Top = 416
    Width = 77
    Height = 25
    Cancel = True
    Caption = 'Close'
    ModalResult = 2
    TabOrder = 14
    OnClick = btnCloseClick
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object HelpBtn: TBitBtn
    Left = 344
    Top = 416
    Width = 77
    Height = 25
    Caption = '&Help'
    TabOrder = 15
    OnClick = HelpBtnClick
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object cmbTableWidth: TComboBox
    Left = 112
    Top = 224
    Width = 57
    Height = 21
    Hint = 'Width of the table'
    ItemHeight = 13
    Items.Strings = (
      '90%'
      '80%'
      '70%'
      '60%'
      '50%'
      '40%'
      '30%'
      '20%'
      '10%')
    TabOrder = 0
    OnKeyPress = cmbTableWidthKeyPress
  end
  object cmbAlign: TComboBox
    Left = 256
    Top = 224
    Width = 153
    Height = 21
    Hint = 'Usually left, right or center'
    ItemHeight = 13
    Items.Strings = (
      'absbottom'
      'absmiddle'
      'baseline'
      'bleedleft'
      'bleedright'
      'bottom'
      'center'
      'left'
      'middle'
      'right'
      'text'
      'top')
    TabOrder = 1
  end
  object chkBorder: TCheckBox
    Left = 237
    Top = 281
    Width = 49
    Height = 17
    Hint = 'Display table with border lines'
    Caption = '&Border'
    State = cbChecked
    TabOrder = 4
    OnClick = chkBorderClick
  end
  object txtBorder: TMaskEdit
    Left = 368
    Top = 279
    Width = 41
    Height = 21
    Hint = 'Width of the table'#39's outside border'
    MaxLength = 0
    TabOrder = 5
    Text = '1'
    OnKeyPress = txtBorderKeyPress
  end
  object txtCaption: TEdit
    Left = 112
    Top = 252
    Width = 297
    Height = 21
    Hint = 'The table'#39's caption'
    TabOrder = 2
  end
  object cmbCaptionAlign: TComboBox
    Left = 112
    Top = 279
    Width = 113
    Height = 21
    Hint = 'Location of the table'#39's caption'
    ItemHeight = 13
    Items.Strings = (
      'bottom'
      'top')
    TabOrder = 3
  end
  object bbtnImport: TBitBtn
    Left = 16
    Top = 371
    Width = 105
    Height = 25
    Hint = 'Imports a file into the table'
    Caption = 'Import'
    TabOrder = 10
    OnClick = bbtnImportClick
    Glyph.Data = {
      12040000424D1204000000000000760000002800000054000000150000000100
      0400000000009C03000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777777777777777777777777777777777777777777777777777777777777
      7777777700007777777777777777777777777777777777777777777777777777
      77777777777F7F7F7F7F7F7F7F7F7F7F00007777777777777777777777777777
      7777777777777777777777777777777777777777777777777777777700007777
      777777777777777777777FFFFFFFFFFFF77777777777777777777777777F7F7F
      7F7F7F7F7F7F7F7F00007780000000000000777777778888888888888F777777
      8000000000000077777778000000000000077777000077007B7B7B7B7B7B0777
      77788F777777777778F77777007B7B7B7B7B7B07777F7007B7B7B7B7B7B07F7F
      0000770F07B7B7B7B7B707777778F8F77777777778F777770707B7B7B7B7B7B0
      777770707B7B7B7B7B7B07770000770B0B7B7B7B7B7B07777778F8F777777777
      778F77770BB07B7B7B7B7B7B077F70BB07B7B7B7B7B7B07F0000770F0BB7B7B7
      B7B7B0777778F78F77777777778F777707BF000007B7B7B7B077707B7000007B
      7B7B7B070000770BF07B7B7B7B7B70777778F78FFFFF77777778F7770BFBFBFB
      F0000000077F70B7BF0FFF000000007F0000770FB0B7B7B7B7B7B0777778F778
      8888FFFFFFF8F77707BFBFBFBFBFB0777777707B7B0FFFFFFFF077770000770B
      F07B7B7B7B7B7B077778F77777778888888777770BFBFBFBFBFBF077777F70B7
      BF0FFFFFFFF07F7F0000770FBF000000B7B7B7077778F777777777778F777777
      07BFBFBFBFBFB0777777707B7B0FFFFFFFF077770000770BFBFBFBF000000077
      7778F7777FFFFFFF8F7777770BFBFBFBFBFBF077777F70B7BF0FFFFFFFF07F7F
      0000770FBFBF0000000777777778FFFFF88888887777777707BFBF0000000777
      7777707B7B0FFFFFFFF077770000777000007777777777777777888887777777
      777777777000007777777777777F7F00000FFFFF00007F7F0000777777777777
      77777777777777777777777777777777777777777777777777777777770FFFFF
      0F07777700007777777777777777777777777777777777777777777777777777
      77777777777F7F7F7F0FFFFF007F7F7F00007777777777777777777777777777
      7777777777777777777777777777777777777777770000000777777700007777
      77777777777777777777777777777777777777777777777777777777777F7F7F
      7F7F7F7F7F7F7F7F000077777777777777777777777777777777777777777777
      77777777777777777777777777777777777777770000}
    NumGlyphs = 4
  end
  object bbtnExport: TBitBtn
    Left = 304
    Top = 370
    Width = 105
    Height = 25
    Hint = 'Exports the table to a file'
    Caption = 'Export'
    TabOrder = 12
    OnClick = bbtnExportClick
    Glyph.Data = {
      12040000424D1204000000000000760000002800000054000000150000000100
      0400000000009C03000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777777777777777777777777777777777777777777777777777777777777
      7777777700007777777777777777777777777777777777777777777777777777
      77777777777F7F7F7F7F7F7F7F7F7F7F00007777777777777777777777777777
      7777777777777777777777777777777777777777777777777777777700007777
      777777777777777777777FFFFFFFFFFFFFF777777777777777777777777F7F7F
      7F7F7F7F7F7F7F7F000077780000000000008777777788888888888888F77777
      780000000000008777777780000000000008777700007770CC0FCCFF70CC0777
      77778F78F777778F78F7777770CC07FF00F0CC07777F7F0CC07FF00F0CC07F7F
      00007770CC0FCCFF70CC077777778F78F777778F78F7777770CC07FF00F0CC07
      7777770CC07FF00F0CC0777700007770CC0FFFFF70CC077777778F78FFFFFF8F
      78F7777770CC07FFFFF0CC07777F7F0CC07FFFFF0CC07F7F00007770CC600000
      06CC077777778F778888887778F7777770CC60000006CC077777770CC6000000
      6CC0777700007770CCCCCCCCCCCC077777778F77F7F7F7F778F7777770CCCCCC
      CCCCCC07777F7F0CCCCCCCCCCCC07F7F00007770C6000000006C077777778F78
      8888888F78F7777770C6000000006C077777770C6000000006C0777700007770
      C0FFFFFFFF0C077777778F8F77777778F8F7777770C0BFBFBFBF0C07777F7F0C
      0BFBFBFBF0C07F7F00007770C0FBFBFBFB0C077777778F8F77777778F8F77777
      70C0FBFBFBFB0C077777770C0FBFBFBFB0C0777700007770C0FFFFFFFF0C0777
      77778F8F77777778F8F7777770C0BFBFBFBF0C07777F7F0C0BFBFBFBF0C07F7F
      00007770C0FBFBFBFB0C077777778F8F77777778F8F7777770C0FBFBFBFB0C07
      7777770C0FBFBFBFB0C077770000777000FFFFFFFF0007777777888F77777778
      88F777777000BFBFBFBF0007777F7F000BFBFBFBF0007F7F00007770C0FBFBFB
      FB0C07777777878FFFFFFFF878F7777770C0FBFBFBFB0C077777770C0FBFBFBF
      B0C0777700007778000000000000877777778888888888888877777778000000
      00000087777F7F800000000000087F7F00007777777777777777777777777777
      7777777777777777777777777777777777777777777777777777777700007777
      77777777777777777777777777777777777777777777777777777777777F7F7F
      7F7F7F7F7F7F7F7F000077777777777777777777777777777777777777777777
      77777777777777777777777777777777777777770000}
    NumGlyphs = 4
  end
  object cbxSeperator: TComboBox
    Left = 234
    Top = 372
    Width = 49
    Height = 21
    Hint =
      'The character that seperates fields. i.e. the commas in "John","' +
      'Smith","123 Melody Lane"'
    ItemHeight = 13
    Items.Strings = (
      ','
      ';'
      '.'
      ':'
      '|'
      '{TAB}')
    MaxLength = 1
    TabOrder = 11
    Text = ','
    OnChange = cbxSeperatorChange
  end
  object txtColor: TComboBox
    Left = 112
    Top = 334
    Width = 113
    Height = 21
    Hint = 'Color can be in either text or hex format'
    ItemHeight = 13
    Items.Strings = (
      'Aqua'
      'Black'
      'Blue'
      'Fuchsia'
      'Gray'
      'Green'
      'Lime'
      'Maroon'
      'Navy'
      'Olive'
      'Purple'
      'Red'
      'Silver'
      'Teal'
      'White'
      'Yellow')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 8
    OnChange = txtColorChange
  end
  object bbtnSetColor: TBitBtn
    Left = 278
    Top = 334
    Width = 131
    Height = 21
    Hint = 'Set the cell'#39's color'
    Caption = 'C&olor'
    TabOrder = 9
    OnClick = bbtnSetColorClick
    Glyph.Data = {
      DE000000424DDE0000000000000076000000280000000F0000000D0000000100
      0400000000006800000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00444444444444
      444F4CCCCCC4BBBBBB4F4CCCCCC4BBBBBB4F4CCCCCC4BBBBBB4F4CCCCCC4BBBB
      BB4F4CCCCCC4BBBBBB4F444444444444444F49999994AAAAAA4F49999994AAAA
      AA4F49999994AAAAAA4F49999994AAAAAA4F49999994AAAAAA4F444444444444
      444F}
  end
  object pnlTableBuilder: TPanel
    Left = 0
    Top = 0
    Width = 426
    Height = 209
    BevelOuter = bvLowered
    TabOrder = 16
    object sgTable: TStringGrid
      Left = 4
      Top = 1
      Width = 417
      Height = 206
      BorderStyle = bsNone
      ColCount = 20
      DefaultColWidth = 100
      DefaultRowHeight = 18
      FixedCols = 0
      RowCount = 500
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goEditing, goTabs, goAlwaysShowEditor, goThumbTracking]
      ParentFont = False
      TabOrder = 0
    end
  end
  object txtCellPadding: TMaskEdit
    Left = 112
    Top = 306
    Width = 113
    Height = 21
    Hint = 'Spacing within cells'
    MaxLength = 0
    TabOrder = 6
  end
  object txtCellSpacing: TMaskEdit
    Left = 296
    Top = 306
    Width = 113
    Height = 21
    Hint = 'Spacing between cells'
    MaxLength = 0
    TabOrder = 7
  end
  object btnClear: TButton
    Left = 4
    Top = 416
    Width = 77
    Height = 25
    Hint = 'Clear out table'
    Caption = 'Clea&r'
    TabOrder = 17
    OnClick = btnClearClick
  end
  object dlgOpen: TOpenDialog
    DefaultExt = 'txt'
    FileEditStyle = fsEdit
    Filter =
      'Comma Delimited (*.CSV)|*.CSV|Text Files (*.TXT)|*.TXT|All Files' +
      ' (*.*)|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Title = 'Load Table'
    Left = 104
    Top = 392
  end
  object dlgSave: TSaveDialog
    DefaultExt = 'csv'
    FileEditStyle = fsEdit
    Filter =
      'Comma Delimited (*.CSV)|*.CSV|Text Files (*.TXT)|*.TXT|All Text ' +
      '(*.*)|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn]
    Title = 'Save Table'
    Left = 128
    Top = 392
  end
  object dlgColor: TColorDialog
    Ctl3D = True
    Left = 152
    Top = 392
  end
end